﻿Public Class CL_SECCION

    Public Shared Sub Get_Seccion(ByRef Rp As DotNetResponse.SQLPersistence, ByVal Id_Prueba As String, ByVal usuario As String)
        Dim EXEC As New DotNetDal.SQLPersistence(False, "cnn", DotNetDal.SQLPersistence.Provider.SQLCLIENT)
        Rp.StoredProcedure = "SP_GET_SECCION_PRUEBA_DISENNO"
        Rp.AddParametro(Id_Prueba)
        Rp.AddParametro(usuario)
        EXEC.ExecuteDataTable(Rp)
    End Sub
    Public Shared Sub SAVE_SECCION _
       ( _
       ByRef Rp As DotNetResponse.SQLPersistence, _
       ByVal ID_SECCION As Long, _
       ByVal FK_PRUEBA As Long, _
       ByVal NOMBRE_SECCION As String, _
       ByVal PUNTOS As Integer, _
       ByVal usuario As String, _
       ByVal Observacion As String, _
       ByVal Estado As String _
        )

        Dim EXEC As New DotNetDal.SQLPersistence(True, "cnn", DotNetDal.SQLPersistence.Provider.SQLCLIENT)
        Rp.StoredProcedure = "SP_CREAR_PRUEBA_DISENNO_SECCION"
        Rp.AddParametro(ID_SECCION)
        Rp.AddParametro(FK_PRUEBA)
        Rp.AddParametro(NOMBRE_SECCION)
        Rp.AddParametro(PUNTOS)
        Rp.AddParametro(Observacion)
        Rp.AddParametro(usuario)
        Rp.AddParametro(Estado)

        EXEC.ExecuteScalar(Rp)
        EXEC.Commit()
        EXEC.Dispose()

    End Sub



End Class
